#/usr/bin/perl
use warnings;
use strict;
use TestCase;


my $tc = TestCase->create({'is_critical'=>1},\@ARGV);

$tc->log($tc->this_run_log_file);
$tc->log("something");
$tc->log($tc->ts_name);
$tc->log("this is tc1,\$0 = $0");

print "print something\n";
$tc->status("failed");
$tc->end();